0 PRINT""
10 POKE53272,22:POKE53281,1:POKE53280,1:POKE646,0
20 PRINT"[147]"
30 PRINT"[212]HE [206][197][215] [211][213][208][197][210][196][201][211][203] [201][201]":PRINT"[158][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
40 PRINT"[211][213][208][197][210][196][201][211][203] [201][201] IS A COMBINATION OF        PROGRAMS FROM [211][213][208][197][210][196][201][211][203]+."
50 PRINT"[208]LUS [206][197][215] PROGRAMS THAT ARE ADDED TO THE ORIGINALS."
60 PRINT"[211][213][208][197][210][196][201][211][203] [211][197][210][201][197][211]":PRINT"[154][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][144]"
70 PRINT"[205]ORE SMALL UTILITIES IN ONE COMPLETE    PACKAGE."
75 PRINT"[215]HY HAVE A BUNCH OF UTILITIES ALL OVER  THE PLACE ?"
80 PRINT"[215]HEN THEY CAN BE ALL IN ONE PROGRAM."
90 PRINT"[154][194]Y [208]ETE [195]SASZAR"
100 PRINT"[156][200]IT THE [211][208][193][195][197][194][193][210] TO CONTINUE"
110 GETR$:IFR$=""THEN110
120 IFR$=" "THEN150
130 GOTO110
150 GOSUB51000
170 PRINT"[147]":CLR:CLOSE15:CLOSE9
180 GOSUB50000
200 PRINT"[205][193][201][206][160][205][197][206][213]"
210 PRINT""
220 PRINTTAB(5)"[193]. [211]YS[160][198]INDER"
225 PRINTTAB(5)"[194]. [193]LIGNMENT [195]HECK"
230 PRINTTAB(5)"[195]. [197]XAMINE [196]ISK"
235 PRINTTAB(5)"[196]. [196]ISK [215]EDGE"
240 PRINTTAB(5)"[197]. [210]EVIVE"
245 PRINTTAB(5)"[198]. [205]ASS [211]CRATCH"
250 PRINTTAB(5)"[199]. [201][196] [195]HANGE
255 [153][163]5)"LEFT$. LEFT$EADER LENHANGE"
265 [153][163]5)"RIGHT$. (null)UPER RIGHT$NFO."
270 [153]"(null)SE CONT_WAITSTOP TO EXIT PROGRAM"
280 [153]"(null)ELECT YOUR CHOICE SINCMD";:[151]204,0
290 [161]R$:[139]R$[178]""[167]290
295 [139]R$[178]"_"[167][153]"LOADVALND (null)ROGRAM.":[128]
300 [139]R$[178]"A"[167][151]204,255:[137]1000
310 [139]R$[178]"B"[167][151]204,255:[137]6000
320 [139]R$[178]"C"[167][151]204,255:[137]11000
330 [139]R$[178]"D"[167][151]204,255:[137]16000
340 [139]R$[178]"E"[167][151]204,255:[137]21000
350 [139]R$[178]"F"[167][151]204,255:[137]26000
360 [139]R$[178]"G"[167][151]204,255:[137]31000
370 [139]R$[178]"H"[167][151]204,255:[137]35000
380 [139]R$[178]"I"[167][151]204,255:[137]41000
390 [137]290
1000 [153]"LOAD"
1010 [141]50000
1020 [153]"(null)(null)(null) ASCRIGHT$(null)STR$VAL(null)"
1030 [153]"(null)YS ASCINDER WILL FIND THE (null)(null)(null) NUMBER OF APROGRAM."
1040 [153]""
1050 [141]52000
1055 [151]204,255
1100 [143] LOAD ADDRESS FINDER
1110 [143] FINDS SYS?????
1120 [143]
1130 [153]"LOAD"
1140 [159]15,8,15:[141]1370
1150 [153]"ASCIND THE (null)(null)(null)STOP NUMBER ?"
1160 [133]"VALNTER FILE NAME  ";N$:[153]"
1170 IFN$=""THENCLOSE15:GOTO170
1180 IFLEN(N$)>16ORLEN(N$)<1THEN1160
1190 OPEN1,8,3,"0:"+N$+",P,R"
1200 GOSUB1370
1210 GET#1,LB$:GOSUB1370
1220 IFLB$=""THENLB$=CHR$(0)
1230 GET#1,HB$:GOSUB1370
1240 IFHB$=""THENHB$=CHR$(0)
1250 CLOSE1:GOSUB1370
1260 L=ASC(LB$)+256*ASC(HB$)
1270 PRINT
1280 PRINT"[204]OAD [193]DDRESS =" L "(DECIMAL)"LIST1280-
1290 PRINTTAB(15)"   ";
1300 L=L/4096
1310 FORI=1TO4:L%=L
1320 PRINTCHR$(48+L%-(L%>9)*7);
1330 L=16*(L-L%)
1340 NEXTI
1350 PRINT"(HEX)
1360 [160]15:[128]
1370 [132]15,EN,EM$,T,S
1380 [139]EN[179]20[167][142]
1390 [153]:[153]"STR$RIGHT$(null)(null)CLOSEVAL(null)(null)(null)(null):"
1400 [153]:[153]EN,EM$
1410 [160]1:[160]15:[129]I[178]1[164]2000:[130]:[137]170
6000 [153]"LOAD"
6010 [141]50000
6020 [153]"ATN(null)RIGHT$CHR$(null)(null)VAL(null)(null)"
6030 [153]"ATNLIGNMENT LENHECK WILL CHECK YOUR DISK    HEADS."
6040 [153]"(null)UTPUT WILL BE EITHER CONTLEFT$VALATNSTR$(null) (null)ATN(null)(null)VALSTR$ STOPOR   LEFT$VALATNSTR$(null) ASCATNRIGHT$(null)VALSTR$STOP."
6050 [153]"":[141]52000
6055 [153]"LOADATNLIGNMENT LENHECK IS A GO...":[151]204,255
6100 [159]1,8,15:[159]4,8,4,"#"
6110 FT[178]1:FT$[178][196](1):LT[178]35
6120 LT$[178][196](LT)
6130 [152]1,"U1:";4;0;LT;0
6140 T$[178]LT$:[141]6190
6150 [152]1,"U1:";4;0;FT;0
6160 T$[178]FT$:[141]6190
6170 LT[178]LT[171]1:[139]LT[177]0[167]6120
6180 [160]4:[160]1:[153]"CONTSTR$RIVE HAS PASSEDSTOP.":[129]T[178]1[164]2000:[130]:[137]170
6190 [153]"(null)EADING (null)RACK: ";T$;" "
6200 [132]1,EN,EM$,ET,ES
6210 [153][163]12)EN;EM$;ET;ES
6220 [139]EN[179]2 [167] [142]
6230 [153]"STR$RIVE HAS FAILEDSTOP.":[160]4:[160]1:[129]I[178]1[164]2000:[130]:[137]170
6240 [137] 6180
11000 [153]"LOAD"
11010 [141]50000
11015 [153]"VAL(null)ATN(null)RIGHT$(null)VALCLOSESTR$RIGHT$(null)(null)"
11020 [153]"(null)HIS CHECKS YOUR DISK FOR VALRRORS ON     TRACKS."
11025 [153]"ASC(null)(null)(null) LENLEFT$VALLEN(null) - CHECK EACH SECTOR / TRACK."
11030 [153]"(null)ATN(null)(null)CLOSELENLEFT$VALLEN(null) - 1 ST. SECTOR / TRACK."
11035 [153]"ASCULL LENHECK - SLOW."
11040 [153]"(null)ART LENHECK - FAST.STOP"
11050 [153]"":[141]52000
11055 [151]204,255
11100 [159]15,8,15,"I0"
11110 [132]15,A:[139]A[167]170
11120 [159]2,8,2,"#":Q$[178][199](0)
11130 ID[178]16[170]6:[137]11200
11140 MH[178][181](MEM[173]256):ML[178]MEM[171]MH[172]256:[152]15,"M-R";[199](ML);[199](MH)
11150 [161]#15,A$:A[178][198](A$[170]Q$):[142]
11160 :
11170 [153]"$";:NL[178][181](BY[173]16):[141]11180:NL[178]BY[171]16[172]NL
11180 [153][202]("0123456789ABCDEF",NL[170]1,1);:[142]
11190 :
11200 [153]"LOADVALXAMINE DISK"
11220 [153]"  STR$ISK (null)ENU     "
11230 [153]"1. STR$ISPLAY RIGHT$STR$'S"
11240 [153]"2. ASCAST ERROR EXAMINATION"
11250 [153]"3. ASCULL ERROR EXAMINATION"
11260 [153]"4. VALXIT"
11270 [153]"RIGHT$NPUT (1-4):";
11280 [159]1,0:[132]1,A$:[160]1:A[178][197](A$):[139]A[178]0[167]11200
11290 [139]A[177]5[167]11200
11300 [145]A[137]11310,11420,11490,11610
11310 [153]"LOADRIGHT$STR$ STR$RIGHT$(null)(null)(null)ATN(null)"
11320 [129]T[178]1[164]35
11330 [152]15,"U1:2,0,";T;",0"
11340 MEM[178]ID:[141]11140:IZ[178]A:MEM[178]ID[170]1:[141]11140:
11350 [153][201]([196](T),2);". ID=";[199](34);[199](IZ);[199](A);[199](34);" ";
11360 BY[178]IZ:[141]11170:[153]",";:BY[178]A:[141]11170
11370 [153][163]20);:[139]T[173]2[178][181](T[173]2)[167][153]
11380 [130]T
11390 [153]:[153]"(null)RESS (null)(null)ATNLENVALWAIT FOR (null)ENU"
11400 [161]A$:[139]A$[179][177]" "[167]11400
11410 [137]11200
11420 [153]"LOADASCAST VALRROR LENHECK"
11430 [129]T[178]1[164]35
11440 [153][201]([196](T),2);". ";
11450 [152]15,"U1:2,0,";T;",0"
11460 [132]15,A$,B$,C$,D$:DD$[178]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$:[153]DD$
11470 [130]T
11480 [137] 11390
11490 [153]"LOADASCULL VALRROR LENHECK"
11500 [129]T[178]1[164]35:[129]S[178]0[164]99
11510 [152]15,"U1:2,0,";T;","S
11520 [132]15,A$,B$,C$,D$:DD$[178]A$[170]","[170]B$[170]","[170]C$[170]","[170]D$:[139]A$[178]"66"[167]11590
11530 [153]"T="T;"CMD S=";S;"CMD ";
11540 [139]A$[178]"00"[167][153]"ON":[137]11560
11550 [153]DD$
11560 [161]A$:[139]A$[179][177]" "[167]11580
11570 [161]A$:[139]A$[178]""[167]11570
11580 [130]S
11590 [130]T
11600 [137]11390
11610 [160]2:[160]15:[153]"LOAD":[137]170
16000 [153]"LOAD"
16010 [141]50000
16015 [153]"STR$RIGHT$(null)(null)CLOSE(null)VALSTR$CHR$VAL"
16020 [153]"
16030 PRINT"[195][193][213][212][201][207][206]":PRINT"[158][163][163][163][163][163][163][163][144]"
16040 PRINT"[211]OME COMMANDS IN THE [196][201][211][203] [215][197][196][199][197] CAN MESSUP A DISK."
16050 PRINT"[200][193][206][196][204][197] [215][201][212][200] [195][193][210][197] !"
16060 PRINT"":GOSUB52000
17110 A=0:PRINT"[147][196][201][211][203]+: [196]ISK COMMANDS"
17120 CLOSE15:POKE204,255
17130 OPEN15,8,15:INPUT#15,A$,B$,C$,D$:
17140 PRINT" [196]ISK [211]TATUS: "A$"[160]"B$"[160]"C$"[160]"D$
17150 PRINT"  [195][146]ATALOGUE [196]ISK
17160 [153]"  LEFT$WAITEADER STR$ISK
17170 PRINT"  [214][146]ALIDATE [196]ISK
17180 [153]"  (null)WAITCRATCH ASCILES
17190 PRINT"  [210][146]ENAME [198]ILES
17200 [153]"  (null)WAITUIT PROGRAM: RETURN TO (null)ENU"
17210 [161]A$:[139]A$[179][177]"C"[175]A$[179][177]"H"[175]A$[179][177]"V"[175]A$[179][177]"S"[175]A$[179][177]"R"[175]A$[179][177]"Q"[167]17210
17220 [139]A$[178]"Q"[167][156]:[153]"LOAD":[137]170
17230 [139]A$[179][177]"C"[167]17360
17240 [153]"LOADSTR$RIGHT$(null)(null)+: STR$ISK COMMANDS"
17250 [153]""
17260 [159]1,8,0,"$0":[161]#1,A$:[161]#1,A$
17270 [139]A[178]2[167]A[178]0:[153]""
17280 [153][163]20[172]A);:[129]C[178]1[164]4:[161]#1,A$:[130]:[139]ST[179][177]0[167][160]1:[137]17330
17290 [161]#1,A$:[139]A$[178]""[167]A[178]A[170]1:[137]17270
17300 [139]A$[178][199](34)[167]B[178][168]B:[137]17290
17310 [139]B[167][153]A$;
17320 [137]17290
17330 [141]17410:[153]:[153]"             (null)RESS (null)PACE WAIT"
17340 [161]A$:[139]A$[178]""[167]17340
17350 [137]17110
17360 [153]"LOADSTR$RIGHT$(null)(null)+: STR$ISK LENOMMANDS"
17370 [139]A$[178]"H"[167]17450
17380 [139]A$[178]"V"[167]17570
17390 [139]A$[178]"S"[167]17640
17400 [139]A$[178]"R"[167]17760
17410 [160]15:[159]15,8,15:[132]15,A1$,B1$,C1$,D1$
17420 [139]B1$[179][177]"OK"[167][153]""
17430 [153]:[153]" "A1$;" ";B1$;" ";C1$;" "D1$""
17440 [160]15:[142]
17450 [153]"LEFT$EADER A DISK OPTION."
17460 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
17470 [153]"ATNRE YOU SURE YOU WANT TO ERASE THIS DISK ?  WAIT"
17480 [161]A$:[139]A$[179][177]"Y"[175]A$[179][177]"N"[167]17480
17490 [139]A$[178]"N"[167]17110
17500 [153]"FOR(null)K."
17510 [133]"VALNTER NEW DISK NAME";D$
17520 [133]"CONTVALNTER NEW RIGHT$STR$ OR RETURN";ID$
17530 [139][195](ID$)[177]2[167]ID$[178][200](ID$,2)
17540 [139]ID$[178]""[167][159]15,8,15,"N0:"[170]D$[170]"":[160]15:[137]17110
17550 [153]"ASCORMATTING...":[159]15,8,15,"N0:"[170]D$[170]","[170]ID$[170]"":[160]15
17560 [141]17410:[137]17110
17570 [153]"OPEN(null)ALIDATE A DISK OPTION."
17580 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":[160]15
17590 [153]" (null)HIS PROCESS WILL TIE UP YOUR DRIVE"
17600 [153]" FOR A FEW MINUTES."
17610 [153]"CLR  (null)(null)(null)(null)RIGHT$(null)CHR$."
17620 [159]15,8,15,"V":[160]15
17630 [141]17410:[137]17110
17640 [153]"(null)CRATCH A FILE OPTION."
17650 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
17660 [153]"FORRIGHT$NPUT FILE NAME TO SCRATCH":A$[178]""
17670 [133]"";A$
17680 [139]A$[178]""[167]17110
17690 [133]"ATNRE YOU SURE";S$
17700 [139]S$[179][177]"Y"[167]17110
17710 [133]"REALLY";S$
17720 [141]17410
17730 [159]15,8,15,"S0:"[170]A$[170]""
17740 [141]17410
17750 [137]17110
17760 [153]"(null)ENAME A FILE OPTION."
17770 [153]"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(":A$[178]""
17780 [153]"(null)HIS WILL CHANGE THE NAME OF A FILE."
17790 [153]"RIGHT$NPUT FILE NAME TO BE CHANGED"
17800 [133]"";A$
17810 [139]A$[178]""[167]17110
17820 [153]"RIGHT$NPUT NEW NAME"
17830 [133]"";B$
17840 [141]17410
17850 [159]15,8,15,"R0:"[170]B$[170]"="[170]A$[170]""
17860 [141]17410
17870 [137]17110
21000 [153]"LOAD"
21010 [141]50000
21020 [153]"(null)VAL(null)RIGHT$(null)VAL"
21030 [153]"(null)HIS WILL REVIVE PROGRAMS SCRATCHED ON  A DISK."
21040 [153]"(null)(null)(null)VAL":[153]"SYSTAB(TAB(TAB(TAB(STOP"
21050 [153]"RIGHT$F YOU HAVE VERIFIED OR SCRATCHED,"
21060 [153]"(null)HERE IS A CHANCE THAT FILE RETRIEVAL IS(null)(null)(null) (null)(null)(null)(null)RIGHT$PEEK(null)VALSTOP."
21070 [141]52000
21100 [153]"STOP"
21110 [151]204,255
21115 [153]"LOAD    (null)VAL(null)RIGHT$(null)VALCLOSE(null)(null)(null)CHR$(null)ATN(null)"
21120 [153]"SYS    TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
21130 [133] "(null)HICH ASCILECLOSE?CLOSECLOSECMDCMDCMD";F$
21135 [139]F$[178]""[167]170
21137 [153]
21140 [153]"(null)HICH DISK DRIVE ?"
21150 [133]"1WAIT  1541    2WAIT  2031 OR 4040  3WAIT 8050CLOSECLOSE1CMDCMDCMD";DD$:DD[178][197](DD$):[153]
21160 [139] DD[179]1 [176] DD[177]3 [167] 21150
21170 [133] "DRIVE [0/1] CLOSECLOSE0CMDCMDCMD";D$:D[178][197](D$):[153]
21180 [139] D[179][177]0 [175] D[179][177]1 [167]21170
21190 [133] "(null)YPE OF FILECLOSECLOSECLOSECLOSECMDCMDCMD";TY$:[153]
21195 [139]TY$[178]"*"[167]170
21200 T[178]18:MXSCT[178]19
21210 [139] DD[178]2 [167] MXSCT[178]18
21220 [139] DD[178]3 [167] T[178]39 :MXSCT[178]28
21230 TY[178]128[171](TY$[178]"SEQ")[171]2[172](TY$[178]"PRG")[171]3[172](TY$[178]"USR"):[139] TY[178]128 [167] 21190
21240 [159]15,8,15:NL$[178][199](0)
21250 [159]2,8,2,"#":[161]#2,X$
21260 [129] S[178]1 [164] MXSCT :[143] 19 FOR 2040[160]& 18 FOR 2031 AND 4040 & 26 FOR 8050
21270 [152]15,"U1:";2;D;T;S
21280 [129] I[178]0 [164] 7
21290 [152]15,"B-P:";2;(2[172]32[172]I)
21300 [161]#2,FT$: [143]   * READ FILE TYPE
21310 [139] FT$[178]"" [167] FT$[178]NL$
21320 FT[178][198](FT$):[139] FT[179][177]0 [175] FT[179][177]129 [175]  FT[179][177]130 [175] FT[179][177]131 [167] 21400
21330 [152]15,"B-P:";2;(5[170]32[172]I)
21340 W$[178]""
21350 [129] Q[178]1 [164] 16
21360     [161]#2,A$:[139] A$[178]"" [167] A$[178]NL$
21370     W$[178]W$[170]A$
21380 [130] Q
21390 [139] F$[178][200](W$,[195](F$)) [167] 21430
21400 [130] I
21410 [130] S:[153] "FORASCILE (null)OT ASCOUND !!"
21420 [137] 21770
21430 [153] "CLRASCOUND      :";W$"WAIT"
21440 I1[178]I:S1[178]S
21450 [152]15,"B-P:";2;(2[170]32[172]I)
21460 [161]#2,FT$,TR$,SS$
21470 [139] FT$[178]"" [167] FT$[178]NL$
21480 [139] TR$[178]"" [167] TR$[178]NL$
21490 [139] SS$[178]"" [167] SS$[178]NL$
21500 TR[178][198](TR$):SS[178][198](SS$)
21510 [152]15,"B-P:";2,(30[170]32[172]I)
21520 [161]#2,N1$:[139] N1$[178]"" [167] N1$[178]NL$
21530 [161]#2,N2$:[139] N2$[178]"" [167] N2$[178]NL$
21540 NB[178][198](N1$)[170][198](N2$)
21550 [153] "(null)TART   (null)RACK     :" TR
21560 [153] "(null)TART   (null)ECTOR    :" SS
21570 [153] "ASCILE    (null)ENGTH    :" NB:[153]
21580 T5[178]TR:S5[178]SS:AT[178]0
21590 [152]15,"U1:";2;D;T5;S5
21600 [161]#2,TL$,SL$:AT[178]AT[170]1
21610 [139] TL$[178]"" [167] TL$[178]NL$
21620 [139] SL$[178]"" [167] SL$[178]NL$
21630 TL[178][198](TL$):SL[178][198](SL$)
21640 [153] "LINK  TCLOSE&CLOSES  :"; TL "," SL
21650 [139] TL[179][177]0 [167] T5[178]TL: S5[178]SL: [137] 21590
21660 [139] NB[179][177]AT [167] [153] " ASCILE REVIVAL WAIT  (null)(null)(null)CLOSE(null)(null)(null)(null)RIGHT$PEEK(null)VAL !!"
21670 [153] " ASCILE REVIVAL WAIT  IS POSSIBLE !!"
21680 [152]15,"B-R:";2;D;T;S1
21690 [152]15,"B-P:";2;(2[170]32[172]I1)
21700 [152]2,[199](TY);
21710 [152]15,"U2:";2;D;T;S1
21720 [152]15,"V:" D
21730 :
21740 :
21750 [153] "OPEN (null)LEASE WAIT....."
21760 :
21770 [160]2:[160]15:[153]"STOP(null)ETURNING TO (null)AIN (null)ENU !":[129]I[178]1[164]2000:[130]:[137]170
26000 [153]"LOAD"
26010 [141]50000
26020 [153]"(null)ATN(null)(null)CLOSE(null)LEN(null)ATN(null)LENLEFT$"
26030 [153]"(null)HIS WILL (null)LEN(null)ATN(null)LENLEFT$STOP MORE THAN ONE PROGRAM ON A DISK AT A TIME."
26040 [141]52000
26100 [153]"LOAD":[151]204,255
26110 [151]53281,1:[151]53280,1
26120 [153]"(null)ASS (null)CRATCH":[153]"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
26130 N[178]0:[134] F$(500)
26140 [153]:[153]"CONT(null)HICH DRIVE? (0/1) ";:[151]204,0
26150 [161] DN$:[139] DN$ [179]"0" [176] DN$ [177] "1" [167] 26150
26160 [153] DN$:[153]"LOAD"
26170 [151]204,255
26180 [159]15,8,15
26190 [159]1,8,0,"$"[170]DN$
26200 [132]15,E,E$:[139] E$[179][177]"OK" [167] [153] E$:[137] 26720
26210 [161]#1,G$,G$,G$,G$:[139]G$[178]""[167]26720
26220 [161]#1,A$,B$:[153] ([198](A$[170][199](0))[170]256[172][198](B$[170][199](0)));
26230 [161]#1,G$:[139]G$[178]"" [167] 26250
26240 [153] G$;:[137] 26230
26250 [153]: [153]:[153] "(null)WAITCRATCH OR (null)WAITEAVE FOLLOWING FILES?"
26260 [153] "ATNWAITBORT - RETURN TO MAIN MENU."
26270 [153]"STOP"
26280 [153]:[161]#1,G$,G$:[139]G$[178]""[167]26420
26290 [161]#1,G$,G$
26300 F$[178]""
26310 [161]#1,G$:[139]G$[178]"" [167] 26280
26320 [139] G$[179][177][199](34)[167]26310
26330 [161]#1,G$:[139]G$[178][199](34)[167]26350
26340 F$[178]F$[170]G$:[137]26330
26350 [153] F$;" ";
26360 [161] G$:[139] G$[179][177]"S" [175] G$[179][177]"L" [175]G$[179][177]"A"[167] 26360
26370 [139]G$[178]"A"[167][153][163]17)"CONTABORTWAITSTOP":[129]I[178]1[164]2000:[130]:[137]170
26380 [139]G$[178]"L"[167][153][163]17)"CONTLEAVEWAITSTOP";
26390 [139] G$[178]"S" [167] F$(N)[178]F$:N[178]N[170]1:[153][163]17)"CONT(null)CRATCHWAITSTOP";
26400 [161]#1,G$:[139] G$[179][177]"" [167] 26400
26410 [137]26280
26420 N[178]N[171]1:[160]1
26430 [139] N[179]0 [167] 26720
26440 [153]:[153] "(null)IST OF FILES TO BE SCRATCHED:":[153]
26450 [129] I[178]0 [164] N
26460 [153] F$(I)
26470 [129] J[178]1 [164] 500:[130]
26480 [130]
26490 [153]:[153] "LENORRECT? (Y/N) ";
26500 [161] G$:[139] G$[179][177]"Y" [175] G$[179][177]"N" [167] 26500
26510 [153]G$
26520 [139] G$[178]"Y" [167] 26580
26530 [153]:[153] "ATNWAITBORT OR STR$WAITISPLAY LIST AGAIN? ";
26540 [161] G$:[139] G$[179][177]"A" [175] G$[179][177]"D" [167] 26540
26550 [153] G$
26560 [139] G$[178]"A" [167] 26720
26570 [137] 26440
26580 [153]:[153] "(null)ORKING.... COME BACK LATER!":[153]
26590 [152]15,"V";DN$
26600 [153]"LENOLLECTING FOR FIRST TIME"
26610 [132]15,E,E$:[139]E$[179][177]"OK" [167] [153]E$:[137] 26720
26620 [129] I[178]0 [164] N
26630 [152]15,"S";DN$;":";F$(I)
26640 [153] "SCRATCHING ";F$(I)
26650 [132]15,E,E$,E1
26660 [139] E$[179][177]"ASCILES (null)CRATCHED" [176] E1[179][177]1 [167] [153] E;E$;E1:[137]26720
26670 [130]
26680 [152]15,"V";DN$
26690 [153]"LENOLLECTING FOR SECOND TIME"
26700 [132]15,E,E$:[139]E$[179][177]"OK" [167] [153]E$:[137] 26720
26710 [153]:[153]"ASCINISHED..."
26720 [160]1:[160]15:[137]60000
31000 [153]"LOAD"
31010 [141]50000
31020 [153]"RIGHT$STR$ LENLEFT$ATN(null)CHR$VAL"
31030 [153]"(null)HIS WILL CHANGE THE CONTRIGHT$STR$STOP OF A DISK."
31040 [153]"(null)HE CONTRIGHT$STR$STOP CAN ONLY BE 2STOP CHARACTERS IN      LENGTH."
31050 [141]52000:[151]204,255
31100 [153]"LOADRIGHT$STR$ CHANGE."
31110 [153]"SYSTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(STOP"
31120 [159]9,0,0:[159]15,8,15
31150 MD$[178]"":[129]I[178]1[164]32:MD$[178]MD$[170]"":[130]
31160 [129]I[178]1[164]39:BL$[178]BL$[170]" ":[130]
31170 [131]2,OUT OF RANGE,TOO LONG
31180 [135]A:[134]EM$(A):[129]I[178]1[164]A:[135]EM$(I):[130]
31190 [137]31320
31200 [132]15,ER:[139]ER[178]0[167][142]
31210 [132]15,ER,EM$,ET$,ES$
31220 [153]MD$"        STR$RIGHT$(null)(null)CLOSEVAL(null)(null)(null)(null)!WAIT #"ER" "EM$" "ET$", "ES$
31230 [128]
31240 [132]9,Q$:[153]:Q1$[178][200](Q$,1):[142]
31250 [160]2:[160]15:[151]59468,PK:[153]"LOAD":[137]170
31260 [153][200](MD$,MD)BL$:[153]BL$
31270 [153][200](MD$,MD);:[142]
31280 MD[178]21:[141]31260
31290 [153]"LOAD       (null)NACCEPTABLE ENTRY -- "EM$(EM):[137]31440
31300 [153]RE$:[141]31240:[141]31260
31310 [142]
31320 F[178]0
31330 DV[178]0
31340 [153]P0$:[153][166]10)"(null)LACE DISK IN DRIVE"DV""
31350 [153]" (null)RESS RETURN.":[141]31240
31360 [152]15,"I"[170][196](DV):[141]31200
31370 [159]2,8,2,"#":[152]15,"U1:2";DV;",18,0":[141]31200
31380 [152]15,"B-P:2,162":[141]31200:DN$[178]""
31390 [129]I[178]1[164]16:[161]#2,A$:DN$[178]DN$[170]A$:[130]
31400 MD[178]10:[141]31260:[139]F[167][142]
31410 [153][166]9)"LOADLOAD(null)HE DISK RIGHT$STR$ # ISSTOP ";DN$
31420 MD[178]13
31430 MD[178]16
31440 [153][166]10)"SYSVALNTER";
31450 [153]" CLR(null)EW DISK RIGHT$STR$ #":[153][166]10)"(null)IMITED TO 2 CHARACTERS"
31460 [141]31240:[139][195](Q$)[177]2[167]EM[178]2:[141]31280:MD[178]18:[141]31260:[137]31460
31470 NDN$[178][200](Q$[170]BL$,2)
31480 MD[178]21:[141]31260
31490 [153][166]12)"(null)HALL RIGHT$ SEND "NDN$
31500 [153][166]2)"TO THE DISKETTE ON DRIVE"DV"? (Y/N) ";
31510 [161]E$:[139]E$[178]""[167]31510
31520 [139]E$[178]"N"[167]31250
31530 [137]31560
31540 [139]Q1$[179][177]"N"[167][141]31260:MD[178]18:[137]31430
31550 [137]31480
31560 MD[178]21:[153][166]13)"LOAD(null)LEASE WAIT...."
31570 [152]15,"B-P:2,162":[141]31200
31580 [152]2,NDN$;:[141]31200
31590 [152]15,"U2:2";DV;",18,0":[141]31200[155] 300[171]350
31600 [152]15,"I"[170][196](DV):[141]31200:[160]2
31610 F[178]1:[153]P0$:[141]31360:F[178]0
31620 [153]"LOAD":    [153][166]7)"(null)HE (null)EW DISK RIGHT$STR$ IS ";DN$
31630 [160]2:MD[178]21:[141]31260:[153][166]12)"DO YOU WISH TO DO"
31640 [153][166]8)"CONTATNNOTHER DISKETTE? (Y/N) "
31650 [161]U$:[139]U$[178]""[167]31650
31660 [139]U$[178]"Y"[167]31340
31670 [139]U$[178]"N"[167]31250
31680 [137]31650
35000 [153]"LOAD"
35010 [141]50000
35020 [153]"LEFT$VALATNSTR$VAL(null) LENLEFT$ATN(null)CHR$VAL"
35030 [153]"(null)OU CAN CHANGE THE HEADER OF YOUR DISK,"
35040 [153]"WITHOUT (null)(null)(null)RIGHT$(null)CHR$CLOSESTR$ATN(null)ATNSTOP WHICH IS ON THE DISK."
35050 [141]52000
36100 [153]"LOAD"
36110 [159]9,0,0:[159]15,8,15
36120 PK[178][194](53272)
36130 MD$[178]"":[129]I[178]1[164]20:MD$[178]MD$[170]"":[130]
36140 [129]I[178]1[164]39:BL$[178]BL$[170]" ":[130]:[151]204,255
36150 P0$[178]"LOAD       STR$ISK LEFT$EADER (null)AME LENHANGERPRINT#"
36160 P0$[178]P0$[170]"
36170 RE$="[152][208]RESS [210][197][212][213][210][206][146] TO CONTINUE
36180 [131]2,OUT OF RANGE,TOO LONG
36190 [135]A:[134]EM$(A):[129]I[178]1[164]A:[135]EM$(I):[130]
36200 [137]36330
36210 [132]15,ER:[139]ER[178]0[167][142]
36220 [132]15,ER,EM$,ET$,ES$
36230 [153]MD$"DISK ERROR!WAIT #"ER" "EM$" "ET$", "ES$
36240 [128]
36250 [132]9,Q$:[153]:Q1$[178][200](Q$,1):[142]
36260 [160]2:[160]15:[151]59468,PK:[153]"LOAD":[137]170
36270 [153][200](MD$,MD)BL$:[153]BL$
36280 [153][200](MD$,MD);:[142]
36290 MD[178]21:[141]36270
36300 [153]"(null)NACCEPTABLE ENTRY -- "EM$(EM)
36310 [153]RE$:[141]36250:[141]36270
36320 [142]
36330 F[178]0:[153]P0$
36340 [153]"SYS(null)N WHICH DRIVE FOR CHANGES? (0/1) ";:[141]36250
36350 DV[178][197](Q$):[139]DV[179]0[176]DV[177]1[167]EM[178]1:[141]36290:[137]36330
36360 [139]DV[178]0[175]Q1$[179][177]"0"[167]EM[178]1:[141]36290:[137]36330
36370 [153]P0$:[153]"PRINT#(null)LACE DISKETTE IN DRIVE"DV""
36380 [153]RE$:[141]36250
36390 [152]15,"I"[170][196](DV):[141]36210
36400 [159]2,8,2,"#":[152]15,"U1:2";DV;",18,0":[141]36210
36410 [152]15,"B-P:2,144":[141]36210:DN$[178]""
36420 [129]I[178]1[164]16:[161]#2,A$:DN$[178]DN$[170]A$:[130]
36430 MD[178]10:[141]36270:[139] F [167] [142]
36440 [153]"(null)HE (null)RESENT STR$ISK (null)AME IS:
36450 PRINTTAB(5)CHR$(34)DN$CHR$(34)
36460 MD=13:GOSUB36270
36470 PRINT"[156][196]O YOU WISH TO CHANGE IT? (Y/N) ";:GOSUB36250
36480 IFQ1$="N"THEN36680
36490 IFQ1$<>"Y"THEN36460
36500 MD=16:GOSUB36270
36510 PRINT"[129][197]NTER [206]EW [196]ISK [206]AME":PRINT"[204]IMIT OF 16 CHARACTERS "
36520 GOSUB36250:IFLEN(Q$)>16THENEM=2:GOSUB36290:MD=18:GOSUB36270:GOTO36520
36530 NDN$=LEFT$(Q$+BL$,16)
36540 MD=21:GOSUB36270
36550 PRINT"[211]HALL [201] SEND "NDN$
36560 PRINT"[154]TO THE [196]ISKETTE ON DRIVE"DV"? (Y/N) ";:GOSUB36250
36570 IFQ1$="Y"THEN36600
36580 IFQ1$<>"N"THENGOSUB36270:MD=18:GOSUB36270:GOTO36500
36590 GOTO36540
36600 MD=21:GOSUB36270:PRINT"[147][150][208]LEASE WAIT...."
36610 PRINT#15,"B-P:2,144":GOSUB36210
36620 PRINT#2,NDN$;:GOSUB36210
36630 PRINT#15,"U2:2";DV;",18,0":GOSUB36210
36640 PRINT#15,"I"+STR$(DV):GOSUB36210:CLOSE2
36650 F=1:PRINTP0$:GOSUB36390:F=0
36660 PRINT"[212]HE [206]EW [196]ISK [206]AME IS:
36670 [153][199](34)DN$[199](34)
36680 [160]2:MD[178]21:[141]36270:[153]"STR$O YOU WISH TO DO
36690 PRINT"[129]ANOTHER DISKETTE? (Y/N) ";:GOSUB36250
36700 IFQ1$="Y"THEN36370
36710 IFQ1$="N"THEN36260
36720 GOTO36680
36730 PRINT"[147]"
36740 POKE53281,1:POKE53280,1
41000 PRINT"[147]"
41010 GOSUB50000
41020 PRINT"[211][213][208][197][210][160][201][206][198][207]"
41030 PRINT"[211][213][208][197][210][160][201][206][198][207][144] IS FUTURE SUPERDISK PROGRAMS"
41040 PRINT"THAT COMBINE ALOT OF UTILITIES INTO ONE"
41050 PRINT"[195]OMING OUT IN [211][213][208][197][210][196][201][211][203] [201][201][201]."
41060 PRINT"[197]RROR [215]RITER.":PRINT"[196]ISK [196]OCTOR.":PRINT"AND MUCH MORE.."
41070 GOSUB52000
41073 POKE204,255
41075 PRINT: PRINT"[212]HAT IS ALL THE INFO AT THIS TIME."
41080 PRINT"[210]ETURNING TO [205]AIN [205]ENU.":FORI=1TO2000:NEXT:GOTO170
49999 END
50000 POKE204,255:POKE53280,1:POKE53280,1:POKE646,0
50005 PRINT"[144][211][213][208][197][210][196][201][211][203] [201][201][221]             [221][208]ETE [195]SASZAR"
50010 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
50015 RETURN
51000 FORT=1TO26:PRINT
51010 NEXT
51020 RETURN
52000 PRINT"[211]HALL THE PROCESS CONTINUE ? (Y/N) [191][157]";:POKE204,0
52010 GETR$:IFR$=""THEN52010
52020 IFR$="Y"THENRETURN
52030 IFR$="N"THENPOKE204,255:GOTO170
52040 GOTO52010
65535 :REM